home *** CD-ROM | disk | FTP | other *** search
/ io Programmo 60 / IOPROG_60.ISO / soft / c++ / gsl-1.1.1-setup.exe / {app} / src / cblas / test_trmv.c < prev    next >
Encoding:
C/C++ Source or Header  |  2002-04-18  |  40.4 KB  |  1,740 lines
  1. #include <gsl/gsl_test.h>
  2. #include <gsl/gsl_ieee_utils.h>
  3. #include <gsl/gsl_math.h>
  4. #include <gsl/gsl_cblas.h>
  5.  
  6. #include "tests.h"
  7.  
  8. void
  9. test_trmv (void) {
  10. const double flteps = 1e-4, dbleps = 1e-6;
  11.   {
  12.    int order = 101;
  13.    int trans = 111;
  14.    int uplo = 121;
  15.    int diag = 131;
  16.    int N = 1;
  17.    int lda = 1;
  18.    float A[] = { 0.987f };
  19.    float X[] = { -0.138f };
  20.    int incX = -1;
  21.    float x_expected[] = { -0.136206f };
  22.    cblas_strmv(order, uplo, trans, diag, N, A, lda, X, incX);
  23.    {
  24.      int i;
  25.      for (i = 0; i < 1; i++) {
  26.        gsl_test_rel(X[i], x_expected[i], flteps, "strmv(case 814)");
  27.      }
  28.    };
  29.   };
  30.  
  31.  
  32.   {
  33.    int order = 101;
  34.    int trans = 111;
  35.    int uplo = 121;
  36.    int diag = 132;
  37.    int N = 1;
  38.    int lda = 1;
  39.    float A[] = { 0.987f };
  40.    float X[] = { -0.138f };
  41.    int incX = -1;
  42.    float x_expected[] = { -0.138f };
  43.    cblas_strmv(order, uplo, trans, diag, N, A, lda, X, incX);
  44.    {
  45.      int i;
  46.      for (i = 0; i < 1; i++) {
  47.        gsl_test_rel(X[i], x_expected[i], flteps, "strmv(case 815)");
  48.      }
  49.    };
  50.   };
  51.  
  52.  
  53.   {
  54.    int order = 101;
  55.    int trans = 111;
  56.    int uplo = 122;
  57.    int diag = 131;
  58.    int N = 1;
  59.    int lda = 1;
  60.    float A[] = { 0.987f };
  61.    float X[] = { -0.138f };
  62.    int incX = -1;
  63.    float x_expected[] = { -0.136206f };
  64.    cblas_strmv(order, uplo, trans, diag, N, A, lda, X, incX);
  65.    {
  66.      int i;
  67.      for (i = 0; i < 1; i++) {
  68.        gsl_test_rel(X[i], x_expected[i], flteps, "strmv(case 816)");
  69.      }
  70.    };
  71.   };
  72.  
  73.  
  74.   {
  75.    int order = 101;
  76.    int trans = 111;
  77.    int uplo = 122;
  78.    int diag = 132;
  79.    int N = 1;
  80.    int lda = 1;
  81.    float A[] = { 0.987f };
  82.    float X[] = { -0.138f };
  83.    int incX = -1;
  84.    float x_expected[] = { -0.138f };
  85.    cblas_strmv(order, uplo, trans, diag, N, A, lda, X, incX);
  86.    {
  87.      int i;
  88.      for (i = 0; i < 1; i++) {
  89.        gsl_test_rel(X[i], x_expected[i], flteps, "strmv(case 817)");
  90.      }
  91.    };
  92.   };
  93.  
  94.  
  95.   {
  96.    int order = 102;
  97.    int trans = 111;
  98.    int uplo = 121;
  99.    int diag = 131;
  100.    int N = 1;
  101.    int lda = 1;
  102.    float A[] = { 0.987f };
  103.    float X[] = { -0.138f };
  104.    int incX = -1;
  105.    float x_expected[] = { -0.136206f };
  106.    cblas_strmv(order, uplo, trans, diag, N, A, lda, X, incX);
  107.    {
  108.      int i;
  109.      for (i = 0; i < 1; i++) {
  110.        gsl_test_rel(X[i], x_expected[i], flteps, "strmv(case 818)");
  111.      }
  112.    };
  113.   };
  114.  
  115.  
  116.   {
  117.    int order = 102;
  118.    int trans = 111;
  119.    int uplo = 121;
  120.    int diag = 132;
  121.    int N = 1;
  122.    int lda = 1;
  123.    float A[] = { 0.987f };
  124.    float X[] = { -0.138f };
  125.    int incX = -1;
  126.    float x_expected[] = { -0.138f };
  127.    cblas_strmv(order, uplo, trans, diag, N, A, lda, X, incX);
  128.    {
  129.      int i;
  130.      for (i = 0; i < 1; i++) {
  131.        gsl_test_rel(X[i], x_expected[i], flteps, "strmv(case 819)");
  132.      }
  133.    };
  134.   };
  135.  
  136.  
  137.   {
  138.    int order = 102;
  139.    int trans = 111;
  140.    int uplo = 122;
  141.    int diag = 131;
  142.    int N = 1;
  143.    int lda = 1;
  144.    float A[] = { 0.987f };
  145.    float X[] = { -0.138f };
  146.    int incX = -1;
  147.    float x_expected[] = { -0.136206f };
  148.    cblas_strmv(order, uplo, trans, diag, N, A, lda, X, incX);
  149.    {
  150.      int i;
  151.      for (i = 0; i < 1; i++) {
  152.        gsl_test_rel(X[i], x_expected[i], flteps, "strmv(case 820)");
  153.      }
  154.    };
  155.   };
  156.  
  157.  
  158.   {
  159.    int order = 102;
  160.    int trans = 111;
  161.    int uplo = 122;
  162.    int diag = 132;
  163.    int N = 1;
  164.    int lda = 1;
  165.    float A[] = { 0.987f };
  166.    float X[] = { -0.138f };
  167.    int incX = -1;
  168.    float x_expected[] = { -0.138f };
  169.    cblas_strmv(order, uplo, trans, diag, N, A, lda, X, incX);
  170.    {
  171.      int i;
  172.      for (i = 0; i < 1; i++) {
  173.        gsl_test_rel(X[i], x_expected[i], flteps, "strmv(case 821)");
  174.      }
  175.    };
  176.   };
  177.  
  178.  
  179.   {
  180.    int order = 101;
  181.    int trans = 112;
  182.    int uplo = 121;
  183.    int diag = 131;
  184.    int N = 1;
  185.    int lda = 1;
  186.    float A[] = { -0.329f };
  187.    float X[] = { 0.463f };
  188.    int incX = -1;
  189.    float x_expected[] = { -0.152327f };
  190.    cblas_strmv(order, uplo, trans, diag, N, A, lda, X, incX);
  191.    {
  192.      int i;
  193.      for (i = 0; i < 1; i++) {
  194.        gsl_test_rel(X[i], x_expected[i], flteps, "strmv(case 822)");
  195.      }
  196.    };
  197.   };
  198.  
  199.  
  200.   {
  201.    int order = 101;
  202.    int trans = 112;
  203.    int uplo = 121;
  204.    int diag = 132;
  205.    int N = 1;
  206.    int lda = 1;
  207.    float A[] = { -0.329f };
  208.    float X[] = { 0.463f };
  209.    int incX = -1;
  210.    float x_expected[] = { 0.463f };
  211.    cblas_strmv(order, uplo, trans, diag, N, A, lda, X, incX);
  212.    {
  213.      int i;
  214.      for (i = 0; i < 1; i++) {
  215.        gsl_test_rel(X[i], x_expected[i], flteps, "strmv(case 823)");
  216.      }
  217.    };
  218.   };
  219.  
  220.  
  221.   {
  222.    int order = 101;
  223.    int trans = 112;
  224.    int uplo = 122;
  225.    int diag = 131;
  226.    int N = 1;
  227.    int lda = 1;
  228.    float A[] = { -0.329f };
  229.    float X[] = { 0.463f };
  230.    int incX = -1;
  231.    float x_expected[] = { -0.152327f };
  232.    cblas_strmv(order, uplo, trans, diag, N, A, lda, X, incX);
  233.    {
  234.      int i;
  235.      for (i = 0; i < 1; i++) {
  236.        gsl_test_rel(X[i], x_expected[i], flteps, "strmv(case 824)");
  237.      }
  238.    };
  239.   };
  240.  
  241.  
  242.   {
  243.    int order = 101;
  244.    int trans = 112;
  245.    int uplo = 122;
  246.    int diag = 132;
  247.    int N = 1;
  248.    int lda = 1;
  249.    float A[] = { -0.329f };
  250.    float X[] = { 0.463f };
  251.    int incX = -1;
  252.    float x_expected[] = { 0.463f };
  253.    cblas_strmv(order, uplo, trans, diag, N, A, lda, X, incX);
  254.    {
  255.      int i;
  256.      for (i = 0; i < 1; i++) {
  257.        gsl_test_rel(X[i], x_expected[i], flteps, "strmv(case 825)");
  258.      }
  259.    };
  260.   };
  261.  
  262.  
  263.   {
  264.    int order = 102;
  265.    int trans = 112;
  266.    int uplo = 121;
  267.    int diag = 131;
  268.    int N = 1;
  269.    int lda = 1;
  270.    float A[] = { -0.329f };
  271.    float X[] = { 0.463f };
  272.    int incX = -1;
  273.    float x_expected[] = { -0.152327f };
  274.    cblas_strmv(order, uplo, trans, diag, N, A, lda, X, incX);
  275.    {
  276.      int i;
  277.      for (i = 0; i < 1; i++) {
  278.        gsl_test_rel(X[i], x_expected[i], flteps, "strmv(case 826)");
  279.      }
  280.    };
  281.   };
  282.  
  283.  
  284.   {
  285.    int order = 102;
  286.    int trans = 112;
  287.    int uplo = 121;
  288.    int diag = 132;
  289.    int N = 1;
  290.    int lda = 1;
  291.    float A[] = { -0.329f };
  292.    float X[] = { 0.463f };
  293.    int incX = -1;
  294.    float x_expected[] = { 0.463f };
  295.    cblas_strmv(order, uplo, trans, diag, N, A, lda, X, incX);
  296.    {
  297.      int i;
  298.      for (i = 0; i < 1; i++) {
  299.        gsl_test_rel(X[i], x_expected[i], flteps, "strmv(case 827)");
  300.      }
  301.    };
  302.   };
  303.  
  304.  
  305.   {
  306.    int order = 102;
  307.    int trans = 112;
  308.    int uplo = 122;
  309.    int diag = 131;
  310.    int N = 1;
  311.    int lda = 1;
  312.    float A[] = { -0.329f };
  313.    float X[] = { 0.463f };
  314.    int incX = -1;
  315.    float x_expected[] = { -0.152327f };
  316.    cblas_strmv(order, uplo, trans, diag, N, A, lda, X, incX);
  317.    {
  318.      int i;
  319.      for (i = 0; i < 1; i++) {
  320.        gsl_test_rel(X[i], x_expected[i], flteps, "strmv(case 828)");
  321.      }
  322.    };
  323.   };
  324.  
  325.  
  326.   {
  327.    int order = 102;
  328.    int trans = 112;
  329.    int uplo = 122;
  330.    int diag = 132;
  331.    int N = 1;
  332.    int lda = 1;
  333.    float A[] = { -0.329f };
  334.    float X[] = { 0.463f };
  335.    int incX = -1;
  336.    float x_expected[] = { 0.463f };
  337.    cblas_strmv(order, uplo, trans, diag, N, A, lda, X, incX);
  338.    {
  339.      int i;
  340.      for (i = 0; i < 1; i++) {
  341.        gsl_test_rel(X[i], x_expected[i], flteps, "strmv(case 829)");
  342.      }
  343.    };
  344.   };
  345.  
  346.  
  347.   {
  348.    int order = 101;
  349.    int trans = 111;
  350.    int uplo = 121;
  351.    int diag = 131;
  352.    int N = 1;
  353.    int lda = 1;
  354.    double A[] = { -0.429 };
  355.    double X[] = { -0.899 };
  356.    int incX = -1;
  357.    double x_expected[] = { 0.385671 };
  358.    cblas_dtrmv(order, uplo, trans, diag, N, A, lda, X, incX);
  359.    {
  360.      int i;
  361.      for (i = 0; i < 1; i++) {
  362.        gsl_test_rel(X[i], x_expected[i], dbleps, "dtrmv(case 830)");
  363.      }
  364.    };
  365.   };
  366.  
  367.  
  368.   {
  369.    int order = 101;
  370.    int trans = 111;
  371.    int uplo = 121;
  372.    int diag = 132;
  373.    int N = 1;
  374.    int lda = 1;
  375.    double A[] = { -0.429 };
  376.    double X[] = { -0.899 };
  377.    int incX = -1;
  378.    double x_expected[] = { -0.899 };
  379.    cblas_dtrmv(order, uplo, trans, diag, N, A, lda, X, incX);
  380.    {
  381.      int i;
  382.      for (i = 0; i < 1; i++) {
  383.        gsl_test_rel(X[i], x_expected[i], dbleps, "dtrmv(case 831)");
  384.      }
  385.    };
  386.   };
  387.  
  388.  
  389.   {
  390.    int order = 101;
  391.    int trans = 111;
  392.    int uplo = 122;
  393.    int diag = 131;
  394.    int N = 1;
  395.    int lda = 1;
  396.    double A[] = { -0.429 };
  397.    double X[] = { -0.899 };
  398.    int incX = -1;
  399.    double x_expected[] = { 0.385671 };
  400.    cblas_dtrmv(order, uplo, trans, diag, N, A, lda, X, incX);
  401.    {
  402.      int i;
  403.      for (i = 0; i < 1; i++) {
  404.        gsl_test_rel(X[i], x_expected[i], dbleps, "dtrmv(case 832)");
  405.      }
  406.    };
  407.   };
  408.  
  409.  
  410.   {
  411.    int order = 101;
  412.    int trans = 111;
  413.    int uplo = 122;
  414.    int diag = 132;
  415.    int N = 1;
  416.    int lda = 1;
  417.    double A[] = { -0.429 };
  418.    double X[] = { -0.899 };
  419.    int incX = -1;
  420.    double x_expected[] = { -0.899 };
  421.    cblas_dtrmv(order, uplo, trans, diag, N, A, lda, X, incX);
  422.    {
  423.      int i;
  424.      for (i = 0; i < 1; i++) {
  425.        gsl_test_rel(X[i], x_expected[i], dbleps, "dtrmv(case 833)");
  426.      }
  427.    };
  428.   };
  429.  
  430.  
  431.   {
  432.    int order = 102;
  433.    int trans = 111;
  434.    int uplo = 121;
  435.    int diag = 131;
  436.    int N = 1;
  437.    int lda = 1;
  438.    double A[] = { -0.429 };
  439.    double X[] = { -0.899 };
  440.    int incX = -1;
  441.    double x_expected[] = { 0.385671 };
  442.    cblas_dtrmv(order, uplo, trans, diag, N, A, lda, X, incX);
  443.    {
  444.      int i;
  445.      for (i = 0; i < 1; i++) {
  446.        gsl_test_rel(X[i], x_expected[i], dbleps, "dtrmv(case 834)");
  447.      }
  448.    };
  449.   };
  450.  
  451.  
  452.   {
  453.    int order = 102;
  454.    int trans = 111;
  455.    int uplo = 121;
  456.    int diag = 132;
  457.    int N = 1;
  458.    int lda = 1;
  459.    double A[] = { -0.429 };
  460.    double X[] = { -0.899 };
  461.    int incX = -1;
  462.    double x_expected[] = { -0.899 };
  463.    cblas_dtrmv(order, uplo, trans, diag, N, A, lda, X, incX);
  464.    {
  465.      int i;
  466.      for (i = 0; i < 1; i++) {
  467.        gsl_test_rel(X[i], x_expected[i], dbleps, "dtrmv(case 835)");
  468.      }
  469.    };
  470.   };
  471.  
  472.  
  473.   {
  474.    int order = 102;
  475.    int trans = 111;
  476.    int uplo = 122;
  477.    int diag = 131;
  478.    int N = 1;
  479.    int lda = 1;
  480.    double A[] = { -0.429 };
  481.    double X[] = { -0.899 };
  482.    int incX = -1;
  483.    double x_expected[] = { 0.385671 };
  484.    cblas_dtrmv(order, uplo, trans, diag, N, A, lda, X, incX);
  485.    {
  486.      int i;
  487.      for (i = 0; i < 1; i++) {
  488.        gsl_test_rel(X[i], x_expected[i], dbleps, "dtrmv(case 836)");
  489.      }
  490.    };
  491.   };
  492.  
  493.  
  494.   {
  495.    int order = 102;
  496.    int trans = 111;
  497.    int uplo = 122;
  498.    int diag = 132;
  499.    int N = 1;
  500.    int lda = 1;
  501.    double A[] = { -0.429 };
  502.    double X[] = { -0.899 };
  503.    int incX = -1;
  504.    double x_expected[] = { -0.899 };
  505.    cblas_dtrmv(order, uplo, trans, diag, N, A, lda, X, incX);
  506.    {
  507.      int i;
  508.      for (i = 0; i < 1; i++) {
  509.        gsl_test_rel(X[i], x_expected[i], dbleps, "dtrmv(case 837)");
  510.      }
  511.    };
  512.   };
  513.  
  514.  
  515.   {
  516.    int order = 101;
  517.    int trans = 112;
  518.    int uplo = 121;
  519.    int diag = 131;
  520.    int N = 1;
  521.    int lda = 1;
  522.    double A[] = { 0.842 };
  523.    double X[] = { 0.192 };
  524.    int incX = -1;
  525.    double x_expected[] = { 0.161664 };
  526.    cblas_dtrmv(order, uplo, trans, diag, N, A, lda, X, incX);
  527.    {
  528.      int i;
  529.      for (i = 0; i < 1; i++) {
  530.        gsl_test_rel(X[i], x_expected[i], dbleps, "dtrmv(case 838)");
  531.      }
  532.    };
  533.   };
  534.  
  535.  
  536.   {
  537.    int order = 101;
  538.    int trans = 112;
  539.    int uplo = 121;
  540.    int diag = 132;
  541.    int N = 1;
  542.    int lda = 1;
  543.    double A[] = { 0.842 };
  544.    double X[] = { 0.192 };
  545.    int incX = -1;
  546.    double x_expected[] = { 0.192 };
  547.    cblas_dtrmv(order, uplo, trans, diag, N, A, lda, X, incX);
  548.    {
  549.      int i;
  550.      for (i = 0; i < 1; i++) {
  551.        gsl_test_rel(X[i], x_expected[i], dbleps, "dtrmv(case 839)");
  552.      }
  553.    };
  554.   };
  555.  
  556.  
  557.   {
  558.    int order = 101;
  559.    int trans = 112;
  560.    int uplo = 122;
  561.    int diag = 131;
  562.    int N = 1;
  563.    int lda = 1;
  564.    double A[] = { 0.842 };
  565.    double X[] = { 0.192 };
  566.    int incX = -1;
  567.    double x_expected[] = { 0.161664 };
  568.    cblas_dtrmv(order, uplo, trans, diag, N, A, lda, X, incX);
  569.    {
  570.      int i;
  571.      for (i = 0; i < 1; i++) {
  572.        gsl_test_rel(X[i], x_expected[i], dbleps, "dtrmv(case 840)");
  573.      }
  574.    };
  575.   };
  576.  
  577.  
  578.   {
  579.    int order = 101;
  580.    int trans = 112;
  581.    int uplo = 122;
  582.    int diag = 132;
  583.    int N = 1;
  584.    int lda = 1;
  585.    double A[] = { 0.842 };
  586.    double X[] = { 0.192 };
  587.    int incX = -1;
  588.    double x_expected[] = { 0.192 };
  589.    cblas_dtrmv(order, uplo, trans, diag, N, A, lda, X, incX);
  590.    {
  591.      int i;
  592.      for (i = 0; i < 1; i++) {
  593.        gsl_test_rel(X[i], x_expected[i], dbleps, "dtrmv(case 841)");
  594.      }
  595.    };
  596.   };
  597.  
  598.  
  599.   {
  600.    int order = 102;
  601.    int trans = 112;
  602.    int uplo = 121;
  603.    int diag = 131;
  604.    int N = 1;
  605.    int lda = 1;
  606.    double A[] = { 0.842 };
  607.    double X[] = { 0.192 };
  608.    int incX = -1;
  609.    double x_expected[] = { 0.161664 };
  610.    cblas_dtrmv(order, uplo, trans, diag, N, A, lda, X, incX);
  611.    {
  612.      int i;
  613.      for (i = 0; i < 1; i++) {
  614.        gsl_test_rel(X[i], x_expected[i], dbleps, "dtrmv(case 842)");
  615.      }
  616.    };
  617.   };
  618.  
  619.  
  620.   {
  621.    int order = 102;
  622.    int trans = 112;
  623.    int uplo = 121;
  624.    int diag = 132;
  625.    int N = 1;
  626.    int lda = 1;
  627.    double A[] = { 0.842 };
  628.    double X[] = { 0.192 };
  629.    int incX = -1;
  630.    double x_expected[] = { 0.192 };
  631.    cblas_dtrmv(order, uplo, trans, diag, N, A, lda, X, incX);
  632.    {
  633.      int i;
  634.      for (i = 0; i < 1; i++) {
  635.        gsl_test_rel(X[i], x_expected[i], dbleps, "dtrmv(case 843)");
  636.      }
  637.    };
  638.   };
  639.  
  640.  
  641.   {
  642.    int order = 102;
  643.    int trans = 112;
  644.    int uplo = 122;
  645.    int diag = 131;
  646.    int N = 1;
  647.    int lda = 1;
  648.    double A[] = { 0.842 };
  649.    double X[] = { 0.192 };
  650.    int incX = -1;
  651.    double x_expected[] = { 0.161664 };
  652.    cblas_dtrmv(order, uplo, trans, diag, N, A, lda, X, incX);
  653.    {
  654.      int i;
  655.      for (i = 0; i < 1; i++) {
  656.        gsl_test_rel(X[i], x_expected[i], dbleps, "dtrmv(case 844)");
  657.      }
  658.    };
  659.   };
  660.  
  661.  
  662.   {
  663.    int order = 102;
  664.    int trans = 112;
  665.    int uplo = 122;
  666.    int diag = 132;
  667.    int N = 1;
  668.    int lda = 1;
  669.    double A[] = { 0.842 };
  670.    double X[] = { 0.192 };
  671.    int incX = -1;
  672.    double x_expected[] = { 0.192 };
  673.    cblas_dtrmv(order, uplo, trans, diag, N, A, lda, X, incX);
  674.    {
  675.      int i;
  676.      for (i = 0; i < 1; i++) {
  677.        gsl_test_rel(X[i], x_expected[i], dbleps, "dtrmv(case 845)");
  678.      }
  679.    };
  680.   };
  681.  
  682.  
  683.   {
  684.    int order = 101;
  685.    int trans = 111;
  686.    int uplo = 121;
  687.    int diag = 131;
  688.    int N = 1;
  689.    int lda = 1;
  690.    float A[] = { -0.162f, -0.108f };
  691.    float X[] = { 0.542f, 0.461f };
  692.    int incX = -1;
  693.    float x_expected[] = { -0.038016f, -0.133218f };
  694.    cblas_ctrmv(order, uplo, trans, diag, N, A, lda, X, incX);
  695.    {
  696.      int i;
  697.      for (i = 0; i < 1; i++) {
  698.        gsl_test_rel(X[2*i], x_expected[2*i], flteps, "ctrmv(case 846) real");
  699.        gsl_test_rel(X[2*i+1], x_expected[2*i+1], flteps, "ctrmv(case 846) imag");
  700.      };
  701.    };
  702.   };
  703.  
  704.  
  705.   {
  706.    int order = 101;
  707.    int trans = 111;
  708.    int uplo = 121;
  709.    int diag = 132;
  710.    int N = 1;
  711.    int lda = 1;
  712.    float A[] = { -0.162f, -0.108f };
  713.    float X[] = { 0.542f, 0.461f };
  714.    int incX = -1;
  715.    float x_expected[] = { 0.542f, 0.461f };
  716.    cblas_ctrmv(order, uplo, trans, diag, N, A, lda, X, incX);
  717.    {
  718.      int i;
  719.      for (i = 0; i < 1; i++) {
  720.        gsl_test_rel(X[2*i], x_expected[2*i], flteps, "ctrmv(case 847) real");
  721.        gsl_test_rel(X[2*i+1], x_expected[2*i+1], flteps, "ctrmv(case 847) imag");
  722.      };
  723.    };
  724.   };
  725.  
  726.  
  727.   {
  728.    int order = 101;
  729.    int trans = 111;
  730.    int uplo = 122;
  731.    int diag = 131;
  732.    int N = 1;
  733.    int lda = 1;
  734.    float A[] = { -0.162f, -0.108f };
  735.    float X[] = { 0.542f, 0.461f };
  736.    int incX = -1;
  737.    float x_expected[] = { -0.038016f, -0.133218f };
  738.    cblas_ctrmv(order, uplo, trans, diag, N, A, lda, X, incX);
  739.    {
  740.      int i;
  741.      for (i = 0; i < 1; i++) {
  742.        gsl_test_rel(X[2*i], x_expected[2*i], flteps, "ctrmv(case 848) real");
  743.        gsl_test_rel(X[2*i+1], x_expected[2*i+1], flteps, "ctrmv(case 848) imag");
  744.      };
  745.    };
  746.   };
  747.  
  748.  
  749.   {
  750.    int order = 101;
  751.    int trans = 111;
  752.    int uplo = 122;
  753.    int diag = 132;
  754.    int N = 1;
  755.    int lda = 1;
  756.    float A[] = { -0.162f, -0.108f };
  757.    float X[] = { 0.542f, 0.461f };
  758.    int incX = -1;
  759.    float x_expected[] = { 0.542f, 0.461f };
  760.    cblas_ctrmv(order, uplo, trans, diag, N, A, lda, X, incX);
  761.    {
  762.      int i;
  763.      for (i = 0; i < 1; i++) {
  764.        gsl_test_rel(X[2*i], x_expected[2*i], flteps, "ctrmv(case 849) real");
  765.        gsl_test_rel(X[2*i+1], x_expected[2*i+1], flteps, "ctrmv(case 849) imag");
  766.      };
  767.    };
  768.   };
  769.  
  770.  
  771.   {
  772.    int order = 102;
  773.    int trans = 111;
  774.    int uplo = 121;
  775.    int diag = 131;
  776.    int N = 1;
  777.    int lda = 1;
  778.    float A[] = { -0.162f, -0.108f };
  779.    float X[] = { 0.542f, 0.461f };
  780.    int incX = -1;
  781.    float x_expected[] = { -0.038016f, -0.133218f };
  782.    cblas_ctrmv(order, uplo, trans, diag, N, A, lda, X, incX);
  783.    {
  784.      int i;
  785.      for (i = 0; i < 1; i++) {
  786.        gsl_test_rel(X[2*i], x_expected[2*i], flteps, "ctrmv(case 850) real");
  787.        gsl_test_rel(X[2*i+1], x_expected[2*i+1], flteps, "ctrmv(case 850) imag");
  788.      };
  789.    };
  790.   };
  791.  
  792.  
  793.   {
  794.    int order = 102;
  795.    int trans = 111;
  796.    int uplo = 121;
  797.    int diag = 132;
  798.    int N = 1;
  799.    int lda = 1;
  800.    float A[] = { -0.162f, -0.108f };
  801.    float X[] = { 0.542f, 0.461f };
  802.    int incX = -1;
  803.    float x_expected[] = { 0.542f, 0.461f };
  804.    cblas_ctrmv(order, uplo, trans, diag, N, A, lda, X, incX);
  805.    {
  806.      int i;
  807.      for (i = 0; i < 1; i++) {
  808.        gsl_test_rel(X[2*i], x_expected[2*i], flteps, "ctrmv(case 851) real");
  809.        gsl_test_rel(X[2*i+1], x_expected[2*i+1], flteps, "ctrmv(case 851) imag");
  810.      };
  811.    };
  812.   };
  813.  
  814.  
  815.   {
  816.    int order = 102;
  817.    int trans = 111;
  818.    int uplo = 122;
  819.    int diag = 131;
  820.    int N = 1;
  821.    int lda = 1;
  822.    float A[] = { -0.162f, -0.108f };
  823.    float X[] = { 0.542f, 0.461f };
  824.    int incX = -1;
  825.    float x_expected[] = { -0.038016f, -0.133218f };
  826.    cblas_ctrmv(order, uplo, trans, diag, N, A, lda, X, incX);
  827.    {
  828.      int i;
  829.      for (i = 0; i < 1; i++) {
  830.        gsl_test_rel(X[2*i], x_expected[2*i], flteps, "ctrmv(case 852) real");
  831.        gsl_test_rel(X[2*i+1], x_expected[2*i+1], flteps, "ctrmv(case 852) imag");
  832.      };
  833.    };
  834.   };
  835.  
  836.  
  837.   {
  838.    int order = 102;
  839.    int trans = 111;
  840.    int uplo = 122;
  841.    int diag = 132;
  842.    int N = 1;
  843.    int lda = 1;
  844.    float A[] = { -0.162f, -0.108f };
  845.    float X[] = { 0.542f, 0.461f };
  846.    int incX = -1;
  847.    float x_expected[] = { 0.542f, 0.461f };
  848.    cblas_ctrmv(order, uplo, trans, diag, N, A, lda, X, incX);
  849.    {
  850.      int i;
  851.      for (i = 0; i < 1; i++) {
  852.        gsl_test_rel(X[2*i], x_expected[2*i], flteps, "ctrmv(case 853) real");
  853.        gsl_test_rel(X[2*i+1], x_expected[2*i+1], flteps, "ctrmv(case 853) imag");
  854.      };
  855.    };
  856.   };
  857.  
  858.  
  859.   {
  860.    int order = 101;
  861.    int trans = 112;
  862.    int uplo = 121;
  863.    int diag = 131;
  864.    int N = 1;
  865.    int lda = 1;
  866.    float A[] = { 0.547f, 0.583f };
  867.    float X[] = { -0.302f, 0.434f };
  868.    int incX = -1;
  869.    float x_expected[] = { -0.418216f, 0.061332f };
  870.    cblas_ctrmv(order, uplo, trans, diag, N, A, lda, X, incX);
  871.    {
  872.      int i;
  873.      for (i = 0; i < 1; i++) {
  874.        gsl_test_rel(X[2*i], x_expected[2*i], flteps, "ctrmv(case 854) real");
  875.        gsl_test_rel(X[2*i+1], x_expected[2*i+1], flteps, "ctrmv(case 854) imag");
  876.      };
  877.    };
  878.   };
  879.  
  880.  
  881.   {
  882.    int order = 101;
  883.    int trans = 112;
  884.    int uplo = 121;
  885.    int diag = 132;
  886.    int N = 1;
  887.    int lda = 1;
  888.    float A[] = { 0.547f, 0.583f };
  889.    float X[] = { -0.302f, 0.434f };
  890.    int incX = -1;
  891.    float x_expected[] = { -0.302f, 0.434f };
  892.    cblas_ctrmv(order, uplo, trans, diag, N, A, lda, X, incX);
  893.    {
  894.      int i;
  895.      for (i = 0; i < 1; i++) {
  896.        gsl_test_rel(X[2*i], x_expected[2*i], flteps, "ctrmv(case 855) real");
  897.        gsl_test_rel(X[2*i+1], x_expected[2*i+1], flteps, "ctrmv(case 855) imag");
  898.      };
  899.    };
  900.   };
  901.  
  902.  
  903.   {
  904.    int order = 101;
  905.    int trans = 112;
  906.    int uplo = 122;
  907.    int diag = 131;
  908.    int N = 1;
  909.    int lda = 1;
  910.    float A[] = { 0.547f, 0.583f };
  911.    float X[] = { -0.302f, 0.434f };
  912.    int incX = -1;
  913.    float x_expected[] = { -0.418216f, 0.061332f };
  914.    cblas_ctrmv(order, uplo, trans, diag, N, A, lda, X, incX);
  915.    {
  916.      int i;
  917.      for (i = 0; i < 1; i++) {
  918.        gsl_test_rel(X[2*i], x_expected[2*i], flteps, "ctrmv(case 856) real");
  919.        gsl_test_rel(X[2*i+1], x_expected[2*i+1], flteps, "ctrmv(case 856) imag");
  920.      };
  921.    };
  922.   };
  923.  
  924.  
  925.   {
  926.    int order = 101;
  927.    int trans = 112;
  928.    int uplo = 122;
  929.    int diag = 132;
  930.    int N = 1;
  931.    int lda = 1;
  932.    float A[] = { 0.547f, 0.583f };
  933.    float X[] = { -0.302f, 0.434f };
  934.    int incX = -1;
  935.    float x_expected[] = { -0.302f, 0.434f };
  936.    cblas_ctrmv(order, uplo, trans, diag, N, A, lda, X, incX);
  937.    {
  938.      int i;
  939.      for (i = 0; i < 1; i++) {
  940.        gsl_test_rel(X[2*i], x_expected[2*i], flteps, "ctrmv(case 857) real");
  941.        gsl_test_rel(X[2*i+1], x_expected[2*i+1], flteps, "ctrmv(case 857) imag");
  942.      };
  943.    };
  944.   };
  945.  
  946.  
  947.   {
  948.    int order = 102;
  949.    int trans = 112;
  950.    int uplo = 121;
  951.    int diag = 131;
  952.    int N = 1;
  953.    int lda = 1;
  954.    float A[] = { 0.547f, 0.583f };
  955.    float X[] = { -0.302f, 0.434f };
  956.    int incX = -1;
  957.    float x_expected[] = { -0.418216f, 0.061332f };
  958.    cblas_ctrmv(order, uplo, trans, diag, N, A, lda, X, incX);
  959.    {
  960.      int i;
  961.      for (i = 0; i < 1; i++) {
  962.        gsl_test_rel(X[2*i], x_expected[2*i], flteps, "ctrmv(case 858) real");
  963.        gsl_test_rel(X[2*i+1], x_expected[2*i+1], flteps, "ctrmv(case 858) imag");
  964.      };
  965.    };
  966.   };
  967.  
  968.  
  969.   {
  970.    int order = 102;
  971.    int trans = 112;
  972.    int uplo = 121;
  973.    int diag = 132;
  974.    int N = 1;
  975.    int lda = 1;
  976.    float A[] = { 0.547f, 0.583f };
  977.    float X[] = { -0.302f, 0.434f };
  978.    int incX = -1;
  979.    float x_expected[] = { -0.302f, 0.434f };
  980.    cblas_ctrmv(order, uplo, trans, diag, N, A, lda, X, incX);
  981.    {
  982.      int i;
  983.      for (i = 0; i < 1; i++) {
  984.        gsl_test_rel(X[2*i], x_expected[2*i], flteps, "ctrmv(case 859) real");
  985.        gsl_test_rel(X[2*i+1], x_expected[2*i+1], flteps, "ctrmv(case 859) imag");
  986.      };
  987.    };
  988.   };
  989.  
  990.  
  991.   {
  992.    int order = 102;
  993.    int trans = 112;
  994.    int uplo = 122;
  995.    int diag = 131;
  996.    int N = 1;
  997.    int lda = 1;
  998.    float A[] = { 0.547f, 0.583f };
  999.    float X[] = { -0.302f, 0.434f };
  1000.    int incX = -1;
  1001.    float x_expected[] = { -0.418216f, 0.061332f };
  1002.    cblas_ctrmv(order, uplo, trans, diag, N, A, lda, X, incX);
  1003.    {
  1004.      int i;
  1005.      for (i = 0; i < 1; i++) {
  1006.        gsl_test_rel(X[2*i], x_expected[2*i], flteps, "ctrmv(case 860) real");
  1007.        gsl_test_rel(X[2*i+1], x_expected[2*i+1], flteps, "ctrmv(case 860) imag");
  1008.      };
  1009.    };
  1010.   };
  1011.  
  1012.  
  1013.   {
  1014.    int order = 102;
  1015.    int trans = 112;
  1016.    int uplo = 122;
  1017.    int diag = 132;
  1018.    int N = 1;
  1019.    int lda = 1;
  1020.    float A[] = { 0.547f, 0.583f };
  1021.    float X[] = { -0.302f, 0.434f };
  1022.    int incX = -1;
  1023.    float x_expected[] = { -0.302f, 0.434f };
  1024.    cblas_ctrmv(order, uplo, trans, diag, N, A, lda, X, incX);
  1025.    {
  1026.      int i;
  1027.      for (i = 0; i < 1; i++) {
  1028.        gsl_test_rel(X[2*i], x_expected[2*i], flteps, "ctrmv(case 861) real");
  1029.        gsl_test_rel(X[2*i+1], x_expected[2*i+1], flteps, "ctrmv(case 861) imag");
  1030.      };
  1031.    };
  1032.   };
  1033.  
  1034.  
  1035.   {
  1036.    int order = 101;
  1037.    int trans = 113;
  1038.    int uplo = 121;
  1039.    int diag = 131;
  1040.    int N = 1;
  1041.    int lda = 1;
  1042.    float A[] = { 0.216f, 0.192f };
  1043.    float X[] = { -0.564f, -0.297f };
  1044.    int incX = -1;
  1045.    float x_expected[] = { -0.178848f, 0.044136f };
  1046.    cblas_ctrmv(order, uplo, trans, diag, N, A, lda, X, incX);
  1047.    {
  1048.      int i;
  1049.      for (i = 0; i < 1; i++) {
  1050.        gsl_test_rel(X[2*i], x_expected[2*i], flteps, "ctrmv(case 862) real");
  1051.        gsl_test_rel(X[2*i+1], x_expected[2*i+1], flteps, "ctrmv(case 862) imag");
  1052.      };
  1053.    };
  1054.   };
  1055.  
  1056.  
  1057.   {
  1058.    int order = 101;
  1059.    int trans = 113;
  1060.    int uplo = 121;
  1061.    int diag = 132;
  1062.    int N = 1;
  1063.    int lda = 1;
  1064.    float A[] = { 0.216f, 0.192f };
  1065.    float X[] = { -0.564f, -0.297f };
  1066.    int incX = -1;
  1067.    float x_expected[] = { -0.564f, -0.297f };
  1068.    cblas_ctrmv(order, uplo, trans, diag, N, A, lda, X, incX);
  1069.    {
  1070.      int i;
  1071.      for (i = 0; i < 1; i++) {
  1072.        gsl_test_rel(X[2*i], x_expected[2*i], flteps, "ctrmv(case 863) real");
  1073.        gsl_test_rel(X[2*i+1], x_expected[2*i+1], flteps, "ctrmv(case 863) imag");
  1074.      };
  1075.    };
  1076.   };
  1077.  
  1078.  
  1079.   {
  1080.    int order = 101;
  1081.    int trans = 113;
  1082.    int uplo = 122;
  1083.    int diag = 131;
  1084.    int N = 1;
  1085.    int lda = 1;
  1086.    float A[] = { 0.216f, 0.192f };
  1087.    float X[] = { -0.564f, -0.297f };
  1088.    int incX = -1;
  1089.    float x_expected[] = { -0.178848f, 0.044136f };
  1090.    cblas_ctrmv(order, uplo, trans, diag, N, A, lda, X, incX);
  1091.    {
  1092.      int i;
  1093.      for (i = 0; i < 1; i++) {
  1094.        gsl_test_rel(X[2*i], x_expected[2*i], flteps, "ctrmv(case 864) real");
  1095.        gsl_test_rel(X[2*i+1], x_expected[2*i+1], flteps, "ctrmv(case 864) imag");
  1096.      };
  1097.    };
  1098.   };
  1099.  
  1100.  
  1101.   {
  1102.    int order = 101;
  1103.    int trans = 113;
  1104.    int uplo = 122;
  1105.    int diag = 132;
  1106.    int N = 1;
  1107.    int lda = 1;
  1108.    float A[] = { 0.216f, 0.192f };
  1109.    float X[] = { -0.564f, -0.297f };
  1110.    int incX = -1;
  1111.    float x_expected[] = { -0.564f, -0.297f };
  1112.    cblas_ctrmv(order, uplo, trans, diag, N, A, lda, X, incX);
  1113.    {
  1114.      int i;
  1115.      for (i = 0; i < 1; i++) {
  1116.        gsl_test_rel(X[2*i], x_expected[2*i], flteps, "ctrmv(case 865) real");
  1117.        gsl_test_rel(X[2*i+1], x_expected[2*i+1], flteps, "ctrmv(case 865) imag");
  1118.      };
  1119.    };
  1120.   };
  1121.  
  1122.  
  1123.   {
  1124.    int order = 102;
  1125.    int trans = 113;
  1126.    int uplo = 121;
  1127.    int diag = 131;
  1128.    int N = 1;
  1129.    int lda = 1;
  1130.    float A[] = { 0.216f, 0.192f };
  1131.    float X[] = { -0.564f, -0.297f };
  1132.    int incX = -1;
  1133.    float x_expected[] = { -0.178848f, 0.044136f };
  1134.    cblas_ctrmv(order, uplo, trans, diag, N, A, lda, X, incX);
  1135.    {
  1136.      int i;
  1137.      for (i = 0; i < 1; i++) {
  1138.        gsl_test_rel(X[2*i], x_expected[2*i], flteps, "ctrmv(case 866) real");
  1139.        gsl_test_rel(X[2*i+1], x_expected[2*i+1], flteps, "ctrmv(case 866) imag");
  1140.      };
  1141.    };
  1142.   };
  1143.  
  1144.  
  1145.   {
  1146.    int order = 102;
  1147.    int trans = 113;
  1148.    int uplo = 121;
  1149.    int diag = 132;
  1150.    int N = 1;
  1151.    int lda = 1;
  1152.    float A[] = { 0.216f, 0.192f };
  1153.    float X[] = { -0.564f, -0.297f };
  1154.    int incX = -1;
  1155.    float x_expected[] = { -0.564f, -0.297f };
  1156.    cblas_ctrmv(order, uplo, trans, diag, N, A, lda, X, incX);
  1157.    {
  1158.      int i;
  1159.      for (i = 0; i < 1; i++) {
  1160.        gsl_test_rel(X[2*i], x_expected[2*i], flteps, "ctrmv(case 867) real");
  1161.        gsl_test_rel(X[2*i+1], x_expected[2*i+1], flteps, "ctrmv(case 867) imag");
  1162.      };
  1163.    };
  1164.   };
  1165.  
  1166.  
  1167.   {
  1168.    int order = 102;
  1169.    int trans = 113;
  1170.    int uplo = 122;
  1171.    int diag = 131;
  1172.    int N = 1;
  1173.    int lda = 1;
  1174.    float A[] = { 0.216f, 0.192f };
  1175.    float X[] = { -0.564f, -0.297f };
  1176.    int incX = -1;
  1177.    float x_expected[] = { -0.178848f, 0.044136f };
  1178.    cblas_ctrmv(order, uplo, trans, diag, N, A, lda, X, incX);
  1179.    {
  1180.      int i;
  1181.      for (i = 0; i < 1; i++) {
  1182.        gsl_test_rel(X[2*i], x_expected[2*i], flteps, "ctrmv(case 868) real");
  1183.        gsl_test_rel(X[2*i+1], x_expected[2*i+1], flteps, "ctrmv(case 868) imag");
  1184.      };
  1185.    };
  1186.   };
  1187.  
  1188.  
  1189.   {
  1190.    int order = 102;
  1191.    int trans = 113;
  1192.    int uplo = 122;
  1193.    int diag = 132;
  1194.    int N = 1;
  1195.    int lda = 1;
  1196.    float A[] = { 0.216f, 0.192f };
  1197.    float X[] = { -0.564f, -0.297f };
  1198.    int incX = -1;
  1199.    float x_expected[] = { -0.564f, -0.297f };
  1200.    cblas_ctrmv(order, uplo, trans, diag, N, A, lda, X, incX);
  1201.    {
  1202.      int i;
  1203.      for (i = 0; i < 1; i++) {
  1204.        gsl_test_rel(X[2*i], x_expected[2*i], flteps, "ctrmv(case 869) real");
  1205.        gsl_test_rel(X[2*i+1], x_expected[2*i+1], flteps, "ctrmv(case 869) imag");
  1206.      };
  1207.    };
  1208.   };
  1209.  
  1210.  
  1211.   {
  1212.    int order = 101;
  1213.    int trans = 111;
  1214.    int uplo = 121;
  1215.    int diag = 131;
  1216.    int N = 1;
  1217.    int lda = 1;
  1218.    double A[] = { 0.693, -0.22 };
  1219.    double X[] = { -0.101, 0.889 };
  1220.    int incX = -1;
  1221.    double x_expected[] = { 0.125587, 0.638297 };
  1222.    cblas_ztrmv(order, uplo, trans, diag, N, A, lda, X, incX);
  1223.    {
  1224.      int i;
  1225.      for (i = 0; i < 1; i++) {
  1226.        gsl_test_rel(X[2*i], x_expected[2*i], dbleps, "ztrmv(case 870) real");
  1227.        gsl_test_rel(X[2*i+1], x_expected[2*i+1], dbleps, "ztrmv(case 870) imag");
  1228.      };
  1229.    };
  1230.   };
  1231.  
  1232.  
  1233.   {
  1234.    int order = 101;
  1235.    int trans = 111;
  1236.    int uplo = 121;
  1237.    int diag = 132;
  1238.    int N = 1;
  1239.    int lda = 1;
  1240.    double A[] = { 0.693, -0.22 };
  1241.    double X[] = { -0.101, 0.889 };
  1242.    int incX = -1;
  1243.    double x_expected[] = { -0.101, 0.889 };
  1244.    cblas_ztrmv(order, uplo, trans, diag, N, A, lda, X, incX);
  1245.    {
  1246.      int i;
  1247.      for (i = 0; i < 1; i++) {
  1248.        gsl_test_rel(X[2*i], x_expected[2*i], dbleps, "ztrmv(case 871) real");
  1249.        gsl_test_rel(X[2*i+1], x_expected[2*i+1], dbleps, "ztrmv(case 871) imag");
  1250.      };
  1251.    };
  1252.   };
  1253.  
  1254.  
  1255.   {
  1256.    int order = 101;
  1257.    int trans = 111;
  1258.    int uplo = 122;
  1259.    int diag = 131;
  1260.    int N = 1;
  1261.    int lda = 1;
  1262.    double A[] = { 0.693, -0.22 };
  1263.    double X[] = { -0.101, 0.889 };
  1264.    int incX = -1;
  1265.    double x_expected[] = { 0.125587, 0.638297 };
  1266.    cblas_ztrmv(order, uplo, trans, diag, N, A, lda, X, incX);
  1267.    {
  1268.      int i;
  1269.      for (i = 0; i < 1; i++) {
  1270.        gsl_test_rel(X[2*i], x_expected[2*i], dbleps, "ztrmv(case 872) real");
  1271.        gsl_test_rel(X[2*i+1], x_expected[2*i+1], dbleps, "ztrmv(case 872) imag");
  1272.      };
  1273.    };
  1274.   };
  1275.  
  1276.  
  1277.   {
  1278.    int order = 101;
  1279.    int trans = 111;
  1280.    int uplo = 122;
  1281.    int diag = 132;
  1282.    int N = 1;
  1283.    int lda = 1;
  1284.    double A[] = { 0.693, -0.22 };
  1285.    double X[] = { -0.101, 0.889 };
  1286.    int incX = -1;
  1287.    double x_expected[] = { -0.101, 0.889 };
  1288.    cblas_ztrmv(order, uplo, trans, diag, N, A, lda, X, incX);
  1289.    {
  1290.      int i;
  1291.      for (i = 0; i < 1; i++) {
  1292.        gsl_test_rel(X[2*i], x_expected[2*i], dbleps, "ztrmv(case 873) real");
  1293.        gsl_test_rel(X[2*i+1], x_expected[2*i+1], dbleps, "ztrmv(case 873) imag");
  1294.      };
  1295.    };
  1296.   };
  1297.  
  1298.  
  1299.   {
  1300.    int order = 102;
  1301.    int trans = 111;
  1302.    int uplo = 121;
  1303.    int diag = 131;
  1304.    int N = 1;
  1305.    int lda = 1;
  1306.    double A[] = { 0.693, -0.22 };
  1307.    double X[] = { -0.101, 0.889 };
  1308.    int incX = -1;
  1309.    double x_expected[] = { 0.125587, 0.638297 };
  1310.    cblas_ztrmv(order, uplo, trans, diag, N, A, lda, X, incX);
  1311.    {
  1312.      int i;
  1313.      for (i = 0; i < 1; i++) {
  1314.        gsl_test_rel(X[2*i], x_expected[2*i], dbleps, "ztrmv(case 874) real");
  1315.        gsl_test_rel(X[2*i+1], x_expected[2*i+1], dbleps, "ztrmv(case 874) imag");
  1316.      };
  1317.    };
  1318.   };
  1319.  
  1320.  
  1321.   {
  1322.    int order = 102;
  1323.    int trans = 111;
  1324.    int uplo = 121;
  1325.    int diag = 132;
  1326.    int N = 1;
  1327.    int lda = 1;
  1328.    double A[] = { 0.693, -0.22 };
  1329.    double X[] = { -0.101, 0.889 };
  1330.    int incX = -1;
  1331.    double x_expected[] = { -0.101, 0.889 };
  1332.    cblas_ztrmv(order, uplo, trans, diag, N, A, lda, X, incX);
  1333.    {
  1334.      int i;
  1335.      for (i = 0; i < 1; i++) {
  1336.        gsl_test_rel(X[2*i], x_expected[2*i], dbleps, "ztrmv(case 875) real");
  1337.        gsl_test_rel(X[2*i+1], x_expected[2*i+1], dbleps, "ztrmv(case 875) imag");
  1338.      };
  1339.    };
  1340.   };
  1341.  
  1342.  
  1343.   {
  1344.    int order = 102;
  1345.    int trans = 111;
  1346.    int uplo = 122;
  1347.    int diag = 131;
  1348.    int N = 1;
  1349.    int lda = 1;
  1350.    double A[] = { 0.693, -0.22 };
  1351.    double X[] = { -0.101, 0.889 };
  1352.    int incX = -1;
  1353.    double x_expected[] = { 0.125587, 0.638297 };
  1354.    cblas_ztrmv(order, uplo, trans, diag, N, A, lda, X, incX);
  1355.    {
  1356.      int i;
  1357.      for (i = 0; i < 1; i++) {
  1358.        gsl_test_rel(X[2*i], x_expected[2*i], dbleps, "ztrmv(case 876) real");
  1359.        gsl_test_rel(X[2*i+1], x_expected[2*i+1], dbleps, "ztrmv(case 876) imag");
  1360.      };
  1361.    };
  1362.   };
  1363.  
  1364.  
  1365.   {
  1366.    int order = 102;
  1367.    int trans = 111;
  1368.    int uplo = 122;
  1369.    int diag = 132;
  1370.    int N = 1;
  1371.    int lda = 1;
  1372.    double A[] = { 0.693, -0.22 };
  1373.    double X[] = { -0.101, 0.889 };
  1374.    int incX = -1;
  1375.    double x_expected[] = { -0.101, 0.889 };
  1376.    cblas_ztrmv(order, uplo, trans, diag, N, A, lda, X, incX);
  1377.    {
  1378.      int i;
  1379.      for (i = 0; i < 1; i++) {
  1380.        gsl_test_rel(X[2*i], x_expected[2*i], dbleps, "ztrmv(case 877) real");
  1381.        gsl_test_rel(X[2*i+1], x_expected[2*i+1], dbleps, "ztrmv(case 877) imag");
  1382.      };
  1383.    };
  1384.   };
  1385.  
  1386.  
  1387.   {
  1388.    int order = 101;
  1389.    int trans = 112;
  1390.    int uplo = 121;
  1391.    int diag = 131;
  1392.    int N = 1;
  1393.    int lda = 1;
  1394.    double A[] = { -0.216, -0.623 };
  1395.    double X[] = { 0.048, 0.293 };
  1396.    int incX = -1;
  1397.    double x_expected[] = { 0.172171, -0.093192 };
  1398.    cblas_ztrmv(order, uplo, trans, diag, N, A, lda, X, incX);
  1399.    {
  1400.      int i;
  1401.      for (i = 0; i < 1; i++) {
  1402.        gsl_test_rel(X[2*i], x_expected[2*i], dbleps, "ztrmv(case 878) real");
  1403.        gsl_test_rel(X[2*i+1], x_expected[2*i+1], dbleps, "ztrmv(case 878) imag");
  1404.      };
  1405.    };
  1406.   };
  1407.  
  1408.  
  1409.   {
  1410.    int order = 101;
  1411.    int trans = 112;
  1412.    int uplo = 121;
  1413.    int diag = 132;
  1414.    int N = 1;
  1415.    int lda = 1;
  1416.    double A[] = { -0.216, -0.623 };
  1417.    double X[] = { 0.048, 0.293 };
  1418.    int incX = -1;
  1419.    double x_expected[] = { 0.048, 0.293 };
  1420.    cblas_ztrmv(order, uplo, trans, diag, N, A, lda, X, incX);
  1421.    {
  1422.      int i;
  1423.      for (i = 0; i < 1; i++) {
  1424.        gsl_test_rel(X[2*i], x_expected[2*i], dbleps, "ztrmv(case 879) real");
  1425.        gsl_test_rel(X[2*i+1], x_expected[2*i+1], dbleps, "ztrmv(case 879) imag");
  1426.      };
  1427.    };
  1428.   };
  1429.  
  1430.  
  1431.   {
  1432.    int order = 101;
  1433.    int trans = 112;
  1434.    int uplo = 122;
  1435.    int diag = 131;
  1436.    int N = 1;
  1437.    int lda = 1;
  1438.    double A[] = { -0.216, -0.623 };
  1439.    double X[] = { 0.048, 0.293 };
  1440.    int incX = -1;
  1441.    double x_expected[] = { 0.172171, -0.093192 };
  1442.    cblas_ztrmv(order, uplo, trans, diag, N, A, lda, X, incX);
  1443.    {
  1444.      int i;
  1445.      for (i = 0; i < 1; i++) {
  1446.        gsl_test_rel(X[2*i], x_expected[2*i], dbleps, "ztrmv(case 880) real");
  1447.        gsl_test_rel(X[2*i+1], x_expected[2*i+1], dbleps, "ztrmv(case 880) imag");
  1448.      };
  1449.    };
  1450.   };
  1451.  
  1452.  
  1453.   {
  1454.    int order = 101;
  1455.    int trans = 112;
  1456.    int uplo = 122;
  1457.    int diag = 132;
  1458.    int N = 1;
  1459.    int lda = 1;
  1460.    double A[] = { -0.216, -0.623 };
  1461.    double X[] = { 0.048, 0.293 };
  1462.    int incX = -1;
  1463.    double x_expected[] = { 0.048, 0.293 };
  1464.    cblas_ztrmv(order, uplo, trans, diag, N, A, lda, X, incX);
  1465.    {
  1466.      int i;
  1467.      for (i = 0; i < 1; i++) {
  1468.        gsl_test_rel(X[2*i], x_expected[2*i], dbleps, "ztrmv(case 881) real");
  1469.        gsl_test_rel(X[2*i+1], x_expected[2*i+1], dbleps, "ztrmv(case 881) imag");
  1470.      };
  1471.    };
  1472.   };
  1473.  
  1474.  
  1475.   {
  1476.    int order = 102;
  1477.    int trans = 112;
  1478.    int uplo = 121;
  1479.    int diag = 131;
  1480.    int N = 1;
  1481.    int lda = 1;
  1482.    double A[] = { -0.216, -0.623 };
  1483.    double X[] = { 0.048, 0.293 };
  1484.    int incX = -1;
  1485.    double x_expected[] = { 0.172171, -0.093192 };
  1486.    cblas_ztrmv(order, uplo, trans, diag, N, A, lda, X, incX);
  1487.    {
  1488.      int i;
  1489.      for (i = 0; i < 1; i++) {
  1490.        gsl_test_rel(X[2*i], x_expected[2*i], dbleps, "ztrmv(case 882) real");
  1491.        gsl_test_rel(X[2*i+1], x_expected[2*i+1], dbleps, "ztrmv(case 882) imag");
  1492.      };
  1493.    };
  1494.   };
  1495.  
  1496.  
  1497.   {
  1498.    int order = 102;
  1499.    int trans = 112;
  1500.    int uplo = 121;
  1501.    int diag = 132;
  1502.    int N = 1;
  1503.    int lda = 1;
  1504.    double A[] = { -0.216, -0.623 };
  1505.    double X[] = { 0.048, 0.293 };
  1506.    int incX = -1;
  1507.    double x_expected[] = { 0.048, 0.293 };
  1508.    cblas_ztrmv(order, uplo, trans, diag, N, A, lda, X, incX);
  1509.    {
  1510.      int i;
  1511.      for (i = 0; i < 1; i++) {
  1512.        gsl_test_rel(X[2*i], x_expected[2*i], dbleps, "ztrmv(case 883) real");
  1513.        gsl_test_rel(X[2*i+1], x_expected[2*i+1], dbleps, "ztrmv(case 883) imag");
  1514.      };
  1515.    };
  1516.   };
  1517.  
  1518.  
  1519.   {
  1520.    int order = 102;
  1521.    int trans = 112;
  1522.    int uplo = 122;
  1523.    int diag = 131;
  1524.    int N = 1;
  1525.    int lda = 1;
  1526.    double A[] = { -0.216, -0.623 };
  1527.    double X[] = { 0.048, 0.293 };
  1528.    int incX = -1;
  1529.    double x_expected[] = { 0.172171, -0.093192 };
  1530.    cblas_ztrmv(order, uplo, trans, diag, N, A, lda, X, incX);
  1531.    {
  1532.      int i;
  1533.      for (i = 0; i < 1; i++) {
  1534.        gsl_test_rel(X[2*i], x_expected[2*i], dbleps, "ztrmv(case 884) real");
  1535.        gsl_test_rel(X[2*i+1], x_expected[2*i+1], dbleps, "ztrmv(case 884) imag");
  1536.      };
  1537.    };
  1538.   };
  1539.  
  1540.  
  1541.   {
  1542.    int order = 102;
  1543.    int trans = 112;
  1544.    int uplo = 122;
  1545.    int diag = 132;
  1546.    int N = 1;
  1547.    int lda = 1;
  1548.    double A[] = { -0.216, -0.623 };
  1549.    double X[] = { 0.048, 0.293 };
  1550.    int incX = -1;
  1551.    double x_expected[] = { 0.048, 0.293 };
  1552.    cblas_ztrmv(order, uplo, trans, diag, N, A, lda, X, incX);
  1553.    {
  1554.      int i;
  1555.      for (i = 0; i < 1; i++) {
  1556.        gsl_test_rel(X[2*i], x_expected[2*i], dbleps, "ztrmv(case 885) real");
  1557.        gsl_test_rel(X[2*i+1], x_expected[2*i+1], dbleps, "ztrmv(case 885) imag");
  1558.      };
  1559.    };
  1560.   };
  1561.  
  1562.  
  1563.   {
  1564.    int order = 101;
  1565.    int trans = 113;
  1566.    int uplo = 121;
  1567.    int diag = 131;
  1568.    int N = 1;
  1569.    int lda = 1;
  1570.    double A[] = { -0.345, -0.851 };
  1571.    double X[] = { -0.708, 0.298 };
  1572.    int incX = -1;
  1573.    double x_expected[] = { -0.009338, -0.705318 };
  1574.    cblas_ztrmv(order, uplo, trans, diag, N, A, lda, X, incX);
  1575.    {
  1576.      int i;
  1577.      for (i = 0; i < 1; i++) {
  1578.        gsl_test_rel(X[2*i], x_expected[2*i], dbleps, "ztrmv(case 886) real");
  1579.        gsl_test_rel(X[2*i+1], x_expected[2*i+1], dbleps, "ztrmv(case 886) imag");
  1580.      };
  1581.    };
  1582.   };
  1583.  
  1584.  
  1585.   {
  1586.    int order = 101;
  1587.    int trans = 113;
  1588.    int uplo = 121;
  1589.    int diag = 132;
  1590.    int N = 1;
  1591.    int lda = 1;
  1592.    double A[] = { -0.345, -0.851 };
  1593.    double X[] = { -0.708, 0.298 };
  1594.    int incX = -1;
  1595.    double x_expected[] = { -0.708, 0.298 };
  1596.    cblas_ztrmv(order, uplo, trans, diag, N, A, lda, X, incX);
  1597.    {
  1598.      int i;
  1599.      for (i = 0; i < 1; i++) {
  1600.        gsl_test_rel(X[2*i], x_expected[2*i], dbleps, "ztrmv(case 887) real");
  1601.        gsl_test_rel(X[2*i+1], x_expected[2*i+1], dbleps, "ztrmv(case 887) imag");
  1602.      };
  1603.    };
  1604.   };
  1605.  
  1606.  
  1607.   {
  1608.    int order = 101;
  1609.    int trans = 113;
  1610.    int uplo = 122;
  1611.    int diag = 131;
  1612.    int N = 1;
  1613.    int lda = 1;
  1614.    double A[] = { -0.345, -0.851 };
  1615.    double X[] = { -0.708, 0.298 };
  1616.    int incX = -1;
  1617.    double x_expected[] = { -0.009338, -0.705318 };
  1618.    cblas_ztrmv(order, uplo, trans, diag, N, A, lda, X, incX);
  1619.    {
  1620.      int i;
  1621.      for (i = 0; i < 1; i++) {
  1622.        gsl_test_rel(X[2*i], x_expected[2*i], dbleps, "ztrmv(case 888) real");
  1623.        gsl_test_rel(X[2*i+1], x_expected[2*i+1], dbleps, "ztrmv(case 888) imag");
  1624.      };
  1625.    };
  1626.   };
  1627.  
  1628.  
  1629.   {
  1630.    int order = 101;
  1631.    int trans = 113;
  1632.    int uplo = 122;
  1633.    int diag = 132;
  1634.    int N = 1;
  1635.    int lda = 1;
  1636.    double A[] = { -0.345, -0.851 };
  1637.    double X[] = { -0.708, 0.298 };
  1638.    int incX = -1;
  1639.    double x_expected[] = { -0.708, 0.298 };
  1640.    cblas_ztrmv(order, uplo, trans, diag, N, A, lda, X, incX);
  1641.    {
  1642.      int i;
  1643.      for (i = 0; i < 1; i++) {
  1644.        gsl_test_rel(X[2*i], x_expected[2*i], dbleps, "ztrmv(case 889) real");
  1645.        gsl_test_rel(X[2*i+1], x_expected[2*i+1], dbleps, "ztrmv(case 889) imag");
  1646.      };
  1647.    };
  1648.   };
  1649.  
  1650.  
  1651.   {
  1652.    int order = 102;
  1653.    int trans = 113;
  1654.    int uplo = 121;
  1655.    int diag = 131;
  1656.    int N = 1;
  1657.    int lda = 1;
  1658.    double A[] = { -0.345, -0.851 };
  1659.    double X[] = { -0.708, 0.298 };
  1660.    int incX = -1;
  1661.    double x_expected[] = { -0.009338, -0.705318 };
  1662.    cblas_ztrmv(order, uplo, trans, diag, N, A, lda, X, incX);
  1663.    {
  1664.      int i;
  1665.      for (i = 0; i < 1; i++) {
  1666.        gsl_test_rel(X[2*i], x_expected[2*i], dbleps, "ztrmv(case 890) real");
  1667.        gsl_test_rel(X[2*i+1], x_expected[2*i+1], dbleps, "ztrmv(case 890) imag");
  1668.      };
  1669.    };
  1670.   };
  1671.  
  1672.  
  1673.   {
  1674.    int order = 102;
  1675.    int trans = 113;
  1676.    int uplo = 121;
  1677.    int diag = 132;
  1678.    int N = 1;
  1679.    int lda = 1;
  1680.    double A[] = { -0.345, -0.851 };
  1681.    double X[] = { -0.708, 0.298 };
  1682.    int incX = -1;
  1683.    double x_expected[] = { -0.708, 0.298 };
  1684.    cblas_ztrmv(order, uplo, trans, diag, N, A, lda, X, incX);
  1685.    {
  1686.      int i;
  1687.      for (i = 0; i < 1; i++) {
  1688.        gsl_test_rel(X[2*i], x_expected[2*i], dbleps, "ztrmv(case 891) real");
  1689.        gsl_test_rel(X[2*i+1], x_expected[2*i+1], dbleps, "ztrmv(case 891) imag");
  1690.      };
  1691.    };
  1692.   };
  1693.  
  1694.  
  1695.   {
  1696.    int order = 102;
  1697.    int trans = 113;
  1698.    int uplo = 122;
  1699.    int diag = 131;
  1700.    int N = 1;
  1701.    int lda = 1;
  1702.    double A[] = { -0.345, -0.851 };
  1703.    double X[] = { -0.708, 0.298 };
  1704.    int incX = -1;
  1705.    double x_expected[] = { -0.009338, -0.705318 };
  1706.    cblas_ztrmv(order, uplo, trans, diag, N, A, lda, X, incX);
  1707.    {
  1708.      int i;
  1709.      for (i = 0; i < 1; i++) {
  1710.        gsl_test_rel(X[2*i], x_expected[2*i], dbleps, "ztrmv(case 892) real");
  1711.        gsl_test_rel(X[2*i+1], x_expected[2*i+1], dbleps, "ztrmv(case 892) imag");
  1712.      };
  1713.    };
  1714.   };
  1715.  
  1716.  
  1717.   {
  1718.    int order = 102;
  1719.    int trans = 113;
  1720.    int uplo = 122;
  1721.    int diag = 132;
  1722.    int N = 1;
  1723.    int lda = 1;
  1724.    double A[] = { -0.345, -0.851 };
  1725.    double X[] = { -0.708, 0.298 };
  1726.    int incX = -1;
  1727.    double x_expected[] = { -0.708, 0.298 };
  1728.    cblas_ztrmv(order, uplo, trans, diag, N, A, lda, X, incX);
  1729.    {
  1730.      int i;
  1731.      for (i = 0; i < 1; i++) {
  1732.        gsl_test_rel(X[2*i], x_expected[2*i], dbleps, "ztrmv(case 893) real");
  1733.        gsl_test_rel(X[2*i+1], x_expected[2*i+1], dbleps, "ztrmv(case 893) imag");
  1734.      };
  1735.    };
  1736.   };
  1737.  
  1738.  
  1739. }
  1740.